unit Cursors;

interface

uses
  Windows, Forms, Controls, Voxel_Engine;

const
  crPencil = 1;
  crBrush = 2;
  crDropper = 3;
  crFill = 4;
  crFill3D = 5;

  vseCursorForTool: array[0..VxlToolCount-1] of TCursor = (
    crPencil, // Pencil tool
    crBrush,  // Line tool
    crBrush,  // Rect tool
    crBrush,  // Filled rect tool
    crBrush,  // Ellipse tool
    crBrush,  // Filled ellipse tool
    crFill,   // Flood fill tool
    crFill3D  // 3D flood fill tool
  );

procedure vseLoadCursors;

implementation

procedure vseLoadCursors;
begin
  Screen.Cursors[crPencil] := LoadCursor(hInstance, 'CURPENCIL');
  Screen.Cursors[crBrush] := LoadCursor(hInstance, 'CURBRUSH');
  Screen.Cursors[crDropper] := LoadCursor(hInstance, 'CURDROPPER');
  Screen.Cursors[crFill] := LoadCursor(hInstance, 'CURFILL');
  Screen.Cursors[crFill3D] := LoadCursor(hInstance, 'CURFILL3D');
end;

end.
